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ccccccce 0 BBBB8BBB RR RR MM MM SSSSSSSS BBBBBBBB LLLLLLELLLL 000000 eeee 
ccccccce 000000 BBBBBBBB RR RR MM MM SSSSSSSS BBBBBBBB LLLLLLLLLL oco000 coos 
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MODULE COBSRMS_BLOCKS( 
IDENT 
)= 
BEGIN 


! PRERAAARAEAAEAAAEAAEAEAEAEAEAHEEE HEHE HTEEAETAAAEEAAEAEEAHEEEEEEEEEEREEEEEEe 


' * 
:* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
‘* ALL RIGHTS RESERVED. : 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; N F C E ANY OTHER : 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. * 
' * 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!# CORPORATION. . 

a 

a 

* 

+ 

* 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'‘@ 
. 
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+4 
FACILITY: COBOL SUPPORT 


ABSTRACT 


Defines a related-file NAM block for use by all COBOL file opens 
that specifies ‘'.DAT’ as the resultant string. 


ENVIRONMENT: Vax-11 User Mode 

NOTE: THIS MODULE CAN NOT BE PUT IN THE SHARED LIBRARY! 
AUTHOR: MLJ , CREATION DATE: 20-MAY-1979 

MODIFIED BY: 

1-001 = Original, MLJ 20-MAY-1979 


1- § - Added bot loretate and comments. RKR 26-SEPT-1979 
1- = Change symbolic name of LIBRARY file. RKR 1-0CT-79 
1-004 = Cosmetic changes. R 18-0CT- 

1-005 = Update name block size for RMS V3.0. BH 29-OCT-81 


! <BLF /PAGE> 


COBRMSBLO.B52;1 


= '1-005' ! file COBRMSBLO.B32 EDIT: BH1005 


FORSEMS.BLOCKS 1S-senrtgee 0:14:54 yanelt BL ing=52 v4, 


3 1! 

: i } SWITCHES 

; «61 & 

: e8 } SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; 1! 

3; 6$ 1 ! LINKAGES 

: 8S 1 i NONE 

; «68 1 i 

: +4 ! INCLUDE FILES 

oe ie 1 LIBRARY "RTLSTARLE'; 

3 a 1 

we. 1 

3 74 1 PSECT 

3 be ; PLIT= S$LOCAL(PIC,WRITE); 

; i$ 1 GLOBAL BIND 

a rar 

: 30 1 i Related-file mame block. Since the macro does not allow the RSL 
3 1 1 i parameter, we have to build this by hand. Note: RMS requires this 
: es : a to be writable. 

3 (84 1 COBSAB_NAM= 

3; 85 1 uPCiT 

3 6 1 CBD, wee BLN, 4, 4), 

3 7 j CONE CUPL TIT -DAT')) 

; 4 REP (NAMSC_BLN / ZUPVAL) = 2 OF (0)); 

: 90 1 

3; Ww 0090 0 END ELUDOM 


-TITLE COBSRMS_BLOCKS 
IDENT \1-005\ 


-PSECT S$LOCAL,NOEXE, PIC,2 


54 41 46 9000 P.AAB: ASCII .DAT\ 
04 04 60 004 P.AAA: .BYTE i 
99 990 , 9008 “ADDRESS “ 1 
LONG ota) 
COBSAB_NAM== P.AAA 

; PSECT SUMMARY 
: Name Bytes Attributes 
; SLOCAL 100 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
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Library Statistics 


; on------ Symbols -------- Pages Processing 

; File Totat Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 2 0 581 00:00.8 

H COMMAND QUALIFIERS 

; BLISS/CHECK® (FIELD, INITIAL OPTIMIZE) /MOTRACE/LIS#L ISS: COBRASBLO/0BJ=08)$ : COBRASBLO MSRC$: COBRMSBLO/UPDATE=(ENH$: COBRMSBLO 
Size: 0 code, : P nes data bytes 


Run Time 

pkey Time: 09:08:¢ 08-4 

Lines/CPU Min: 776 

‘nog Ae in: 4699 
poneey Used: 22 pages 

Compilation Complete 


+ it eat 1$-$e0-19t 93:16:86 Hebarte sae Scosemsaco 642; ee a 
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DIG 
CON 
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